home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / Unsupported Samples / CRC Cards / Source / MCRCCards.p < prev    next >
Encoding:
Text File  |  1990-07-11  |  636 b   |  42 lines  |  [TEXT/MPS ]
  1. PROGRAM TestCards;
  2.  
  3. {$MC68020-}
  4. {$MC68881-}
  5.  
  6. USES
  7.     UMacApp,
  8.     ToolUtils,
  9.     Resources,
  10.     UPrinting,
  11.     UTEView,
  12.     UDialog,
  13.     UGridView,
  14.     UCRCCards,
  15.     UItem,
  16.     UCard,
  17.     UDesignDocument,
  18.     UMyViews,
  19.     UMyCommands,
  20.     UTextHandler;
  21.  
  22. VAR
  23.     gCRCCardsApplication: TCRCCardsApplication;
  24.     
  25. BEGIN
  26.     InitToolBox;
  27.     IF ValidateConfiguration(gConfiguration) THEN
  28.         BEGIN
  29.             InitUMacApp(8);
  30.             InitUPrinting;
  31.             InitUTEView;
  32.             InitUDialog;
  33.             InitUGridView;    
  34.             New(gCRCCardsApplication);
  35.             FailNIL(gCRCCardsApplication);
  36.             gCRCCardsApplication.ICRCCardsApplication(kFileType);
  37.             gCRCCardsApplication.Run;
  38.         END
  39.     ELSE
  40.         StdAlert(phUnsupportedConfiguration);
  41. END.
  42.